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1 300-138 93:59:83 LIBRTL. RCILIBSCOPY.B3 31 
MODULE LIBSSCOPY ( 
IDENT = '1-018" ! File: LIBSCOPY.B32 Edit: DG1018 


)} zs 
BEGIN 


inuaceneeeaeenecentennenenenenertrrererereereteeetentenerentnedenneneetenens 
le e 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
~ ALL RIGHTS RESERVED. 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
't COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
a TRANSFERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
» CORPORATION. - 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
- SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
i 

| eeeangensaenenentaddoenanieeseubenneserenesnenenednesenantnenabennnennnEne 
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+4 
FACILITY: General library: string handling 
ABSTRACT: 


MEUM (SO OONAUES WN OODONOUE WN (OO ONOUE WN 


This module contains routines to allocate and deallocate | 
strings. Also included are the basic string copying routines. 


ENVIRONMENT: VAX=-11 User Mode 


ORIGINAL AUTHOR: Tomas N. Mast ings GG-oct-1977 
REWRITTEN BY: John Sauter, 14-MAR-1979 


‘ 
' 
i 
i MODIFIED BY: 
: 
i 
i 
i 
i 
i 
i 


COOooooooooooooo ooo OOooooooooooooo 
SSSSssoooooesess SSSSsssssss 
HF FWAAN nr 
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Pass by-reference. TNH 19-DEC-77 
Change order of arguments to conform to manual. JMT 5-Mar-78 
Fix typo in PIC case table. OGP 29-Jun- 

7 5-July-78 


Change JS8 entry point names tg DXx6. 
Add dynamic descriptors. TNH 5-July- 

Remove entry points not in manual. TNH 1-Aug-78 

Make REMQUE be PIC. TNH 2-Aug- 

And INSQUE be PIC. TNH 2-Aug-78 

Compute effective adr before REMQUE to be PIC. TNH 2-Aug-78 


Update version number and copyright notice. S 16-NOV-78 
Add """ to the PSECT directives. JBS 51 bec-78 
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IBSSCOPY $ep-1984 01:14: AX-11 Bliss-32 V4.0-74 Page 2 
eit 3 12-80 8=1 38s 93:45 :33 LIBRTL. Ses iestopy 63551 . (1) 
1-003 - Make external references se 32-bit addresses. J8s 11-FEB-1979 
4 = Fix allocation of i= and ncondt tion strin gs so that they 
ay" t expand the region uncon Eronel ty. But instead use 
opr ecacter string. 
1-005 - Edit 004 carroeures a Pbuge: strings Just fo 00 lerge, or the 


SSS 


OOoCooo°oo 


6 
6 86 queues try to allocate m then. 18-FEB-1979 
64 64 1-006 - Do a total rewr oe hese routines are on maintained 
2? bee just, fo or com abil ty: they call the STR facility. 
&5 06? 1-007 - colt the string facility using input scalars by reference. 
68 6 S 18-MAY-1 
9 $6 1-008 = ange colts to STRSCOPY. JBS ae -1979 
4! 4 1- - tis eas DHX was incorrectly checking for truncation. 
7 0078 1-010 - Moke comanteie with release 1 return codes. RW tinea 
7 07 1-011 = Reor enti zee string, routines to all find their wey te 
74 0074 L265 oe DX6. Introduce new classes of descriptors 
75 0075 o ber aired % string copying routines. 
76 B28 Change ‘Lig SFREEN D6 to accept count by immediate value, 
078 
079 


ee ts external documentation says it should operate. 
RR ZY MARTI} . ‘ 


~ 
oo 
oO 


1-012 - Correct, sone: connents to more accurately reflect actual code. 
1-013 - Correct which error codes are returned in LIBSSCOPY_R_DX6. 

RKR 4-SEP-1981. 
1-014 = Return an error if 4 ar attempts to deallocate a non-dynamic 


84 0084 string. SBL 9-Sep-1 

85 0085 1-015 - Add special-case code to process string Gover lovers that 
0086 “read Like fixed string descriptors. RKR 1981. 
087 1-016 = Change code in LIBS$SGETI_DD and "IBSEN! DD_ 8 so that 
088 = ther is called with” 3 descr eter that if not CLASS_D, 
0089 oreplens will result i.e. rept ace validity check” for 
0090 CLA S_D with code to Srone CLASS_D This is what occurred 


in VMS RTL V2.x of these fattak” tary bh eh was 
inadver benety changed in produc ing Version 3 routines. 
In LIBSSCOPY_DXD DX6. don't use $ as aa LEN_ ADDR macro, since 
thi S macro uses STRS$ SANALY S _SDESC_R1 == _00n" t want the 
ignaling routine used ay8 L1B$ fF 
edirect te she s free L16$ NALYZE. sbese nit to 


CesAnALzve 
Remo hec .% Tontents of desciptors other than insuring 
that 1BSESA. ARsIZE is < 65K for class_A and class_NCA. 


1-017 - Aad support for class SO string descri core, 3 3-0CT-1983. 
i * Change class SO string descriptors to DG 27-Feb-1984. 
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SDF FFF FFF SF FT LLL LLL LVL LVL Lvov Lviv Lv Lviv vv LVL VV VV VELVETY 


SWITCHES: 


(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


SWITCHES ADDRESSING MODE 


LINKAGES: 
REQUIRE "RTLIN:STRLNK'; 


! Linkages 


TABLE OF CONTENTS: 
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INCLUDE FILES: 


Macros for defining psects 


String macros 


:STRMACROS'; 
RTLPSECT'; 


LIBRARY ‘RTLSTARLE'; 


EQUATED SYMBOLS: 


MACROS: NONE 


! Maximum size string 


MAX_SIZE = 65535; 


! Declare psects for LIB$ facility 


ECLARE_PSECTS (LIB); 


LL FO CC CC OC OC re ee 


STORAGE 
NONE 


QP DDOK— UNF NO VINTMN OR. DHOOM MUM FNOR. WHO IMF OM OR. DHOOM (UM TMNOR. ODO CUM TN 
BO MMMM KOO 0 NINN ST PINS SF STS ST TT TOMA 
he see seh see sell eh ese el lh) lh ll lh | lah lh) el) lL lh) lh] pl | lh pl Ll Ll Ll | ol ell Lah Lah ae Ln * ae Lae Lat Lael a Lo Lh ok | 
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ODOM CIM TNO DRO CUM TMNOR OKO CUM 
OOO RK NININININININI CINCY 


mmr 


PETE 


FDO UM TNOR. DHOOM MUMTIMNOR. OOO tUM 


PAVIA SFT TTT TTT MAMMNNAMNNNN OOOO 


LLL LLL FE CCC COC OO OO 


baptgcore 1$c3eoctgee 4:14:38 yarett eb ing-42 40-743 | 


> 164 1 § 1 ! EXTERNAL REFERENCES: 

; 165 1 ,! 

; 198 1 1 

3; 16 1 1 hie LITERAL 

> 168 1360 1 STRS_NORMAL , ! (Used in macro S$SSTRSDEALLOCATE) 
; 19? 1361 1 LIBS_FATERRLIB, ! Fatal error in the Library 
; 170 1 6 1 LIBS_INSVIRMEM, ! Insufficient virtual memory 
; (171 1365 1 LIBS_INVSTRDES, ! Invalid —— descriptor 

: \7¢ 1364 1 LIBS_STRTRU; ! String truncated 

e OF tt 1 

> 174 1566 1 EXTERNAL ROUTINE 

3: 175 1367 1 LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK ; 


=r 
iu 
ow 


Lr ara — oe 


D 12 
IBSSCOPY 16-Sep-1984 214: AX-11 Bliss-32 V4.0-74 Page 5 
ett aati ae ts 1 93:45:83 LIBRTL. RCILIBSCOPY.B3 37 . (3) 
GLOBAL ROUTINE LIBSSGET1_DD ( ! Allocate a dynamic string 
LEN ' Number of 8 to allocate 
DESCRIP ' Descriptor to allocate into 


bee 
FUNCTIONAL DESCRIPTION: 


| 
| 
Allocate a string. LEN bytes are allocated to DESCRIP, which 
is assumed to be a dynamic descriptor. If the descriptor 
already has storage allocated to it, but not enough, the old 
storage is deallocated. 


FORMAL PARAMETERS: 


LEN.rwu.r The number of bytes to allocate. 
DESCRIP. waqu.r — + i cal The DSCSB_DTYPE field is not 
ouched. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SS$_NORMAL ALL is OK. 
LIBS_INSVIRMEM he tare enough virtual memory to allocate 
LIBS_FATERRLIB fatal error in the Library 
SIDE EFFECTS: 


May deallocate the descriptor's storage and allocate new 
| 
| 
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BREA R RRR R REEL E EEE PWM NANA ANNA 
OOOO 000000 000000000009 09 09 NI NINN NINN NNO OS 
URW 320 ODNAUNEWN COC ODNOULSWIN—OO0 


me ee ee a a a a a at td a bd = ot = a“ = = od = 2 2 1 a = 8 1 a tS 


PROPIMOPOPOPONONPININIPONINININPIPINONINININPINININNINININID 2 9 2 9 9 SS SS SS Se 


Be Se Se Se Se Se Se Be Se Ge Se Ge Se Se Se Se Fe Se Se Se Se Se Ge Se Se Se Se Se Ge Se Ge Ge Se oe Ge FF Se Fe Se Ge Se Se Fe Se Se Se Se ee Se Se eees 


19 BEGIN 

j 1 MAP 

§ ig DESCRIP : REF BLOCK C , BYTE); 
; i 3, | 
5 1 : Deallocate old space (if necesaary) and allocate new space. 
$$ 13 RETURN LIBSSGET1_DD_R6 ((..LEN AND EXFFFF*), -DESCRIP) ; 
28 1 END; f end of LIB$SGET1_DD | 
-TITLE L1BSScoPy | 
-IDENT \1-018\ 


ttc 


3; Routine Size: 


14 bytes, 


ww 


Routine Base: 


007¢ 00000 
08 AC 00 00002 


04 BC 3C 00006 
0000v 30 OO00A 
04 00000 


-LIBSCODE + 0000 


138 


-PSECT 
-ENTRY 
M 


1982 93:45:33 euigbenipanetin 


TRS_NO NORMAL , “hles ATER RLIB 
LIBS~INSVIRME LTS INVSTRDES 
LIBS-STRTRU, ie ANAL YZE_SDESC_R2 


LIBSSGET1_ DD, Save R2,R3,R4,R5,R6 
DESCRIP, Ri 


@LEN, R 
LIBSSGET1_DD_R6 


ee ei 
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IBSSCOPY 16-Sep-1984 01:14: AX-11 Bliss-32 V4.0-74 Page 7 
ett 12=808-1 383 93:45:38 LIBRTL. ROILIBSCOPY.B3 31 . (4) 
GLOBAL ROUTINE LIBSSGET1_DD_R6 ( ! Allocate a dynamic string 
! Number of bytes to allocate 


LEN 
DESCRIP i Descriptor to allocate into 
) : STRING_JSB = 


RETURN_STATUS = SS$_NORMAL ; ! assume success 


3 14 1 s ( 
: 133) i | 
; 14 1 3 
3 ¢ 1426 : : 
: i é 1 164 : ¢ 
H 1? ! FUNCTIONAL DESCRIPTION: : 
: 239 14 5 1 Allocate a string. LEN bytes are allocated to DESCRIP, which : ¢ 
; 240 14 9 1! is assumed to be a dynamic descriptor. If the descriptor : ( 
; 241 1431 1! already has storage allocated to it, but not enough, the old : 
3 tg 1? § : storege is deallocated. ; | 
; 44 1434 i FORMAL PARAMETERS: i 
; 23 14 1 i LEN. rwu.v The number of bytes to allocate. : ( 
; 26 14 1} DESCRIP.wqu.r The descriptor. The DSCSB_DTYPE field is not : 
3 re 1 : : } touched. : 
: 250 1440 1°! IMPLICIT INPUTS: a 
Bo a 
; 2g 1208 1 i NONE : 
; 54 1444 1 ! IMPLICIT OUTPUTS: s { 
3 55 1445 1! ; ( 
P= on apm if 
: 38 1448 ! COMPLETION CODES: ; 
; 260 1450 1! SS$_NORMAL ALL is OK. : ¢ 
; 261 1451 1! LIBS_INSVIRMEM There was not enough virtual memory to allocate s 
: o¢ 1026 1: the string. 3 4 
; 4 1637 : : LIBS_FATERRLIB fatal error in the Library : 
: 265 1455 i SIDE EFFECTS: ; 
: $9 1489 1 / May deallocate the descriptor's storage and allocate new g { 
; 268 1628 1! storage for it. 4 
: 269 1459 1! s 4 
ee ' 
: 27 146¢ BEGIN | 
; 7 146 LOCAL s 4 
: 276 1464 RETURN_STATUS ; g | 
: iF 1002 MAP : 
; 7 1409 DESCRIP : REF BLOCK C, BYTE) ; : ( 
: 8 268 '¢ } : 
; 30 1490 Make the descriptor be a dynamic string. : 
; 28 14 DESCRIP CDSC$B_CLASS] = DSCSK_CLASS_D; : } 
; 14 . 4 
3 14 3 
3 14 3 


IBSSCOPY $2 orn 1 AX-11 Bliss-32 V4.0-74 Pa 1 
ttt ~300n 138% 9}: 3; 33 LIBRTL.SRC Libstoay od 31 - “af 1 
bs err ; see if current space needs to be deallocated and reallocated : f 
34 P 147 IF ( SSTRSNEED_ALLOC (( .LEN AND 2X'FFFF") | ; 6 
14 9 $STRSDYN_AL_LEN (DESCRIP) )) 3; 4 
91 14 THEN 3; 6 
3 14 ; BEGIN ; 6 
9 14 ' ; 6 
3 14 : i give back old space : , 
4 14 if ¢ RETURN_STATUS = SSTRSDEALLOCATE (DESCRIP)) ; 6 
9 16 THEN | : é 
$3 14 i and get new space 3 ¢ 
01 P 1491 RETURN_STATUS = $STRSALLOCATE (( .LEN AND 2X°FFFF*), ; 6 
O¢ 1636 DESCRIP ) ; 3 6 
0 149 END 3 ¢ 
§¢ 1298 ELSE : é 
06 1496 : 6 
Ss 1298 id b d é 
. ie} n ° 
4 Hb space can be reuse - 3 
19 1200 16 SSTRSLENGTH (DESCRIP) = (.LEN AND 2X'FFFF") ; 
\¢ 1208 i at this point. RETURN_STATUS contains ne of: 
1 150 i S- iginally assigned status i.e. °Sss NORMAL 
14 1304 i B. failure status from SSTRSDEALLOCATE ~ 
1? 12 5 ! C. status from $STRSALLOCATE 
17 1209 
18 1508 RETURN .RETURN_STATUS ; 
19 1509 END ; ! of routine LIBSSGET1_DD_R6 


-EXTRN STR$$Q_SHORT_Q LIBSEREE vm 
-EXTRN STRS agit ERR; STRSSINIT 
“EXTRN STRSSV_I CtResAroe. SHORT 
-EXTRN P1escer va sins. INSVIRMEM 


5€ 04 C2 00000 LIBSSGET1 DD_R6:: 
> , s0eL2 a4, SP : 1420 
a : 
03 A2 be 5 09 MOVB #2, 3(DESCRIP) : 1472 
1 ob 30 PUSHL @# 3 1474 
53 04 A2 D f MOVL 4(DESCRIP), R3 : 1480 
D4 1 CLRL R : 
Dd 1 TSTL 3 
6 1 1 BNEQ 1$ 3 
D 19 INCL RO : 
1 D 1B CLRL ® 3 
13° «11 10 BRB 3$ : 
OOFO 8 &F 6 BI 1F 18: CMPW (DESCRIP), #240 : 
8 3h BLEQU $ 3 
51 62 3C 6 MOVZWL (DESCRIP), R1 : 


H 12 
eae 1o28ee=138E 93:45:53 HaRT Shes TFs hG00 7085.1 Page 145 


97 11 9 BRB : : ¢ 
H re i Be OO0SE | MOVDWL BUS TRIAG BrDCKS, RI ; 4 
000000FO BF bf ; 3$: CMPL R11, #240 ~ ; : 3; 6 
06 £6 Blac” RO, 48 : te 
D4 CLRL Rt : : 6 
1 1 4 BRB 6$ : 3s 4 
OOFO BF : 81 42 4$: CMPW = (DESCRIP), #240 : ; 6 
B 4 BLEQ : s 4 
51 i i 49 MOV ZWL (DESCRIP), R1 : ; ¢ 
51 p ef 5$: MOVL R3, STRING BLOCK : a | 
51 FE Al 3C 0005 MOVZWL 7g (STRING BLOCK), R1 : e. 3 
51 54 10 9 8 $ 23 6$: CMPZv #0, #16, CEN, R1 : 3 2 
A BEQL=Sséa18 : : 7 
.. 005¢ BRB 128 : ; 2 
04 0 €9 3 7$: BLBC ~=_-«aRO, 8S : 3 2 
1 04 06 CLRL RY : : 7 
13 11 00063 BRB 10$ : S| 
OOFO = BF 62 B81 90065 8$: CMPW (DESCRIP), #240 : sa 
05 1B 0006A BLEQU 9S : ee 
51 62 3¢ 0006C MOVZWL (DESCRIP), R1 : 7 
Q 11 0006F BRB 1 : ; 2 
51 3 0 0071 9$ MOVL R3, STRING BLOCK : s 7 
51 FE Al 3¢ 90074 MOVZ2WL =2(STRING BLOCK), R1 : : 2 
51 54 10 09 ED 00078 10$ CMP7V. #0, #16, CEN, R1 : : ? 
03 1A 0007D BGTRU 12$ : ee | 
OOCE 31 OOO7F 11$:  BRW 25$ : wid 
50 000000006 8F D0 00082 12$:  MOVL #STRS_NORMAL, RETURN_STATUS + 1486 : 7 
a a ; | 
OOFO 8F $5 B1 00080 CMPW (DESCRIP), #240 : : 2 
1A 1A 00092 BGTRU 1 : : 2 
51 53 p0 0094 MOVL 3, STRING BLOCK : : 2 
51 FE Al 3¢ 00097 MOVZWL <2(STRING_BLOCK), ALLOC_LENGTH ; ; 7 
51 D7 00098 DECL RI : : 2 
51 07 BA 909 BICB2 «#7, RI 3 : ? 
51 0000000060041 9E OA VAB_ STRS$Q SHORT QCR1), INSQUE_ADDR ; : 7 
00 «81 $3 Of OOn8 INSQUE (R3), 30 ( INSQUE_ADDR) : : 4 
04 Ag i OOAE 13$:  PUSHAB 4(DESCRIP) : | 
08 AE 62 3¢ 0008 MOVZWL (DESCRIP), 8(SP) : ao 
08 AE OF 083 PUSHAB &8(SP) : ae 
000000006 00 g : CALLS #2, LIBSFREE_V : i 
7 E8 O00BF BLBS § RETURN STATUS, 14$ : 3 2 
0 000000006 BF »D ce MOVL  &#STRS_FATINTERR, RETURN_STATUS ; 7 
E D C9 14$:  MOVL = RETURR_STATUS, RETURN_STATUS ; | 
F E CC BLBC = RETURN STATUS 4s : ee | 
7 000000006 é CF BLBS STRSSV INI {5 + 1492 
000000006 0 FB D6 CALLS #0, STRSSINIT ; 
000000006 8F D DD 15$:  MOVL  #STRS_NORMAL, RETURN_STATUS ; 
wanting! 26 $a 00089 gereu Sage Pet? 
4 EB N : 
bg "3 ED BNEQ ey F 
5 D EF CLRL = TEMP : 


IBSSCOPY 1b-5¢ $ep-1984 AX-11 Bliss-32 V &.0-7% Page 10 
ett 1 300-1382 9}: 3; 33 LIBRTL.SRC REIL 18sco OPY.B32;1 9 a) 
F }} F : 
51 4 ‘ i 16$ MOVZWL LEN, R1 : 
1 } bh F B1CB2 3 
2 0000000060041 E OO0F MOVAB sthssa SHORT_QCR1J, REMQUE_ADDR : 
: oF 17$: REMQUE @ (REMQUE_ADBR), TEMP : 
53 1 08 1 MOVL #1, ALLOC_DONE : 
g 1 10¢ BRB : 
ps 10€ 18$: cLRL ALLOC = PONE : 
7E 4 3¢ 0011 MOVZWL LEN, = 3 
000000006 09 a, s O14 CALLS STRRSALOC, SHORT : 
; £8 OO11A 19$:  BLBS ALLOC D : 
28 : 11 BLBC RETURR_ we tul’ 23$ : 
1 11 001 BRB 1 : 
26 Q E9 00122 208:  BLBC  RETURN_STATUS, 23S ; 
04 A2 DO 91 MOVL TEMP. Z(DESCRIP) ; 
1D 11 001 BRB 2 : 
04 A2 9F 00128 21$:  PUSHAB 4 (DESCRIP) : 
08 AE 54 3¢ 001 MOVZWL LEN 3 
08 AE 9F 001 PUSH SP) : 
000000006 00 F 001 CALLS #2, LIBSGET of : 
09 E8 0013¢ BLBS =s_«aRE tut STATOS, 22$ : 
0 000000006 BF D0 0013F MOVL aSTRS. THSVIRMEMS RETURN_STATUS : 
03 11 00146 BRB 23$ : 
62 54 BO 0014 a8: MOVW LEN, (DESCRI ; 
6E 30 DO 00148 23$:  MOVL RETURN PETATUS RETURN_STATUS : 
03 11 OO14E 24$: BRB 26$ : 1479 
62 54 BO 00150 25$: MOVW LEN, (DESCRIP) + 1500 
50 BE DO 001 6$: MOVL. RETURN_STATUS, RO : 1508 
5E 04 CO 00156 ADDL2 #4, SP : 1509 
05 00159 RSB : 
; Routine Size: 5346 bytes, Routine Base: _LIBSCODE + OO0E 


Llpsgcory ybSeoctgee ONs14:25 Yared BLisg=2 v4.0n742 | Page 1} 


aS 


; 1 } } } GLOBAL ROUTINE LIBSSFREE1_DD ( ! Deallocate a dynamic string : d 
: 4 1512 1 DESCRIP ! The descriptor to deallocate .-% 
: 4 151 1 d= | 
3 5 1514 1 aS | 
3 § 1515 1 !4¢ 2 a 
; i : 1§ : FUNCTIONAL DESCRIPTION: : f 
; 9 18 Deallocate a string. The string is assumed to by dynamic. ; , 
: 331 0 FORMAL PARAMETERS: { 
; ‘ ; § : DESCRIP.wqu.r The descriptor of the string to deallocate. ; { 
: 335 3 4 IMPLICIT INPUTS: : { 
: 13¢6 | i NONE : 7 
3 8 15 13 a | 
$ ) 15 3 1 | IMPLICIT OUTPUTS: s 7 
; 0 15 1 oe | 
3 1 1530 1: NONE $s 7 
3 4g 1531 1 | 3 
5 4 15 ¢ 1 | COMPLETION CODES: s @ 
H 44 15 1 i Ss a 
; 45 1534 1! SS$_NORMAL ALL is OK. ; 7 
g § 1535 1! LIBS_INVSTRDES Invalid string descriptor : 7 
: i 3 $ : LIBS_FATERRLIB Fatal error in the Library : : 
: 349 1338 1! SIDE EFFECTS: : 2 
3 0 1539 1! : 7 
: 1 Fo ’ z May deallocate virtual storage. : f 
; : 1348 1 i- : 2 
3 4 154 1 ee | 
; 5 1544 BEGIN 3 
; 356 1545 : 7 
3 7 1266 a | 
3 8 154 '¢ 3s 7 
3 9 1368 Free the string : , 
> 361 1550 2 RETURN LIBSSFREE1_DD6 (.DESCRIP) ; . 3 
; 362 1551 1 END; ! end of LIBSSFREE1_DD : 
a | 

a 64 

24 

007¢ 9000 .ENTRY LIBSSFREE1_DD, Save R2,R3,R4,R5,R6 : 1510 a 

50 04 AC 8 000 MOVL DESCRIP ; 1550 ae | 

0000v 9006 BSBW LIBSSFREE1_DD6 ; a44 

4 000 RET : 1551 i | 

; Routine Size: 10 bytes, Routine Base: _LIBSCODE + 0168 i | 
: 

Ae | 


K 12 
bit hal Ve-Sep-i98e 42:99:88 — ECTantu sae Sciastor.639;1 tea 


=r 
os 


; ; } 3 } GLOBAL ROUTINE LIBSSFREE1_DD6 ( ! Deallocate a dynamic string : ] 
3 $8 : ¢ ! DESCRIP ! The descriptor to deallocate : f 
3 68 1396 | ) : STRING_JSB = : § 
: 370 1 ’ 1 !4¢ ; 8 
; a! : 26 : FUNCTIONAL DESCRIPTION: : ; 
; 1 : o } ; Deallocate a string. The string is assumed to by dynamic. : : 
; t3 i | FORMAL PARAMETERS: 3 8 
; rt : 5 : DESCRIP.wqu.r The descriptor of the string to deallocate. : : 
; 1869 i IMPLICIT INPUTS: 3 
: 384 1863 1 | E a 
; g 1899 1 | — : 8 
H o7 130) : : IMPLICIT OUTPUTS: : : 
toe 1378 1} none i 
; 87 1375 ! COMPLETION CODES: i 
: 389 1399 1 | SS$_NORMAL ALL is OK. : 8 
; 390 1378 1! LIBS_INVSTRDES Invalid string descriptor s § 
: 3 1329 ; H LIBS_FATERRLIB Fatal error in the Library : : 
; 38 1381 i SIDE EFFECTS: é 
: 32 1388 ' May deallocate virtual storage. : H 
a 7 
: 399 1389 BEGIN ‘ 
CE FE hoes 

F 402 1590 RETURN_STATUS ; 

Pes i le 

: 405 1 38 DESCRIP : REF BLOCK C , BYTE) ; 

he tet 

; 408 1396 see if this is a dynamic descriptor 

: 410 1298 iF .DESCRIP COSCSB_CLASS] EQL DSCSK_CLASS_D 

; 411 15 H 

2) 0 one 

: ai 16 é ; deallocate the string 

; $18 18 ¢ 3 if (RETURN_STATUS = SSTRSDEALLOCATE (DESCRIP)) 

: oi 1607 4 oom 

: 420 1808 4 i Make sure the pointer and Length field are zero, so the 


ee a ee" —_— 


ylpsgcory 1$-Seo-1984 1:14:28 yAKeTT BLing32 v4.0-763 | Page 13 


; 421 1609 4 ! user is less likely to mistakenly use an old address. ; 
; 4 ¢ 1610 4 i Also, if he calls to reallocate without reinitalizing, : 
: 4 ; 1611 4 i he will not get confused. : 
; 425 1818 4 DESCRIP postey WLLENGTH] = g : : : 
s § $ 1614 & DESCRIP LDSCSA_POINTER] = ° 
; 4 1615 END; 3 
; 428 1918 END 3 
; 429 161 
: 430 1618 ' at this point +) hea STATUS contains the status returned : 
; 431 1619 i STRSDEALLOCA ; 
; 438 1620 ; 
; 4 1621 ELSE : 
; 4 16 ¢ ! : 
s 455 16 ! not a dynamic descriptor : 
a: 1638 , 
: 438 16 $ RETURN_STATUS = LIBS_INVSTRDES ; : 
; 439 16 $ 
; 440 1628 RETURN .RETURN_STATUS : 
3; 4461 166? : 
3 442 1630 1 END ; ! of routine LIBSSFREE1_DD6 : 
5E 04 C2 00000 LIBSSFREE1 DD6:: : 

SUBL2 ae SP 3; 1552 : 

52 0 DO 00003 MOVL R2 : 3 

02 03 A2 91 00006 CRPB | SCBESCRIPD, #2 ; 1598 : 

6 is QO00A BNEQ 3$ : : 

29 000000006 8F D Bpes MOVL #STRS_NORMAL, RETURN_STATUS : 1604 3 

5 04 A2 D9 0001 MOVL  4(DESCRIP), R3 ; : 

3¢ (1 4 BEA BEQL $ ; : 

OOFO 8 8F 62 681 00019 CMP (DESCRIP), #240 : : 

1A 1A 0001 BGTRU 3 ° 

51 53 43 00 MOVL R3, STRING BLOC : : 

51 FE Al 3C 000 MOVZWL -2(STRING “aLOcK), ALLOC_LENGTH ; ; 

51 7 000 ECL RY 3 é 

3} 07 8A 00029 BICB2 R1 $ 3 

1 0000000060041 E 0002C OVAB er assa SHORT SET ADOR puns ADDR 3 : 

00. «BI 63 OE 000 INSQUE (R3), SOC INSQUE 3 3 

1B #11 $8 RB ¢$ s F 

A2 9F A 1$ PUSHAB 4(DESCRIP) 3 : 

04 AE 6 HS 00 MOVZWL (DESCRIP), 4(SP) 3 : 

04 =A F 4) PUSHAB 4(SP) 3 : 

000000006 F 44 CALLS #2, LIBSFREE_VM 3 : 

E 48 BLBS RETURN STATU : ; 

0 00000000G 8F D 4 MOVL #STRS FATINTERR RETURN_STATUS : : 

1 6 D 2$ MOVL § RETURA_STATU S$. RETURN. STATUS ; : 

OE E BLBC RETURN: STATU 3 : 

62 B4 B CLRW (DESCRIP) > 1613 : 

04 #A fy ehet 2q0estniP) : 1eh3 : 

1 000000006 i D 62 3$: MOVL #LIBS_INVSTRDES, RETURN_STATUS : 16 : 

3 1 BO 006 4$: MOVL § RETURN_STATUS, RO ; 1858 ; 


pupegcorr I$rReortgee 16:3 YANG binge 82 40-749 Page Jt 
5E 04 £0 B06 AppLe #4, SP ; 1630 


; Routine Size: 112 bytes, Routine Base: _LIBSCODE + 0172 


vata 


Po ot ot ot ot ot ee 
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PIPPI 


459 


Se Se Ge Ge Ge Se Se Ge Fe Se Fe Ge Se Se Ge Se Ge Ge Se Se Ge Ge Se Se Se Se Se Ge Se Se ee Se Se Se Se Se ee Ge FH Ge ee 


3; Routine Size: 


; «485 


PAA AAAAAAAAO 


Fe ee ek a aed ah ah eh eh eh od 


WR OWOODNAOUS wn 


POPPI OF ANA AAD AMAR ee ee 


a a a kk dd dd 
=O ODNOAUNE WN $$ O OONAUE WN" OOONAOUSE 


nom 
ANNO 


—RORIROIR 9 nt — —  —  — — ss 1 a 


N 12 

16-Sep-1984 01:14: AX-11 Bliss-32 V4.0-74 
132308= 138% 93:45:38 LIBRTL.SRCIJLIBSCOPY .B32;1 
GLOBAL ROUTINE LIBSSFREEN_DD ( ! Deallocate dynamic strings 


NUM DESC, 


D 
' Number of descriptors 
DESC_PTR ! Ff 


irst descriptor to deallocate 
14 
FUNCTIONAL DESCRIPTION: 


Deallocate a number of strings. The strings are all assumed 
to be dynamic. 


FORMAL PARAMETERS: 


NUM_DESC.rl.r The number of descriptors to deallocate. 
DESC_PTR.wqu.r The first of these descriptors. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


SS$_NORMAL 

L1BS_FATERRLIB Fatal error in the Library 
SIDE EFFECTS: 

May deallocate virtual storage. 


' 
' 
] 
' 
.] 
ice 
BEGIN 
LIBSSFREEN_DD6 (..NUM_DESC, .DESC_PTR) 


END; ! end of LIBSSFREE1_DD 


007¢ 60000 .ENTRY LIBSSFREEN_DD, Save R2,R3,R4,R5,R6 
51 08 AC 00 00002 MOVL DESC_PTR, Rl 
50 4 BC 6 MOVL § @NUM™DESC, RO 
0000v O00, BSBW LIBSSFREEN_DD6 
4 00000 RET 


14 bytes, Routine Base: _LIBSCODE + O01E2 


1672 


1 
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13 
t1psscoPy 1G-Sep-1964 01:14:25 YAK-I1 BLisge32 vé.0-742 Page 6 
{ 


=" 
Q 


LIBS_FATERRLIB fatal error in the Library 
SIDE EFFECTS: 
May deallocate virtual storage. 


BEGIN 


OCAL 
RETURN_STATUS, 

DESCRIP : REF BLOCK C , BYTE); 

'¢ 
! Loop through all the descriptors, freeing them. | 
! Quit when one fails to deallocate | 
| 
| 
| 


487 675 1 GLOBAL ROUTINE LIBSSFREEN,DD6 ( Deallocate dynamic strings | 
489 675 NUM_DESC, ! Number of descriptors sf 
$3 ore DESC_PTR ! First descriptor to deallocate i 
49 67 ) : STRING_JSB = sj 
eR . 
499 eat { FUNCTIONAL DESCRIPTION: s | 
49 on i Deallocate a number of strings. The strings are all assumed : { 
re oss } to be dynamic. - 
200 686 i FORMAL PARAMETERS: ‘i 
5 688 i NUM_DESC.rl.v The number of descriptors to deallocate. . 
é rea } DESC_PTR.wqu.r The first of these descriptors. | 
1 1 { IMPLICIT INPUTS: 3 | 
$i NONE .) 
& : o') 
; 1 IMPLICIT OUTPUTS: sf 
f NONE | : | 
4 i COMPLETION CODES: a | 
ee SS$$_NORMAL a 
§ i ; 
i F 
$ fi - 
6 : 34] 
4 : s 3 
8 : : 
9 7% 
0 2 § 
) ; 
4 
; 
1 


WWIWIAI IAI III RII RINININININID 2 2 St SS OS S| SB DOOOCOOCOCOCO 


INCR NTER FROM 1 TO .NUM_DESC DO 


cou 
BEGIN 
DESCRIP = .DESC_PTR + ((.COUNTER - 1)*DSCS$K_D_BLN); 
'¢ 

Now try freeing it. 

4 RETURN_STATUS = LIBSSFREET DD6 (.DESCRIP) ; 


a em ee ee ee ee ee ee ed ed ed wd dd ed dd 


AAA AAA AIAIPIPIPIMINIMINININININ IAI tt st tt tk kt kk hk kh 


Be Se Ge Se He Se Fe Ge Se Se Ge Be Se Be Se Ge Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Ge Se Oe Se Se Se Se Se Ge Se See Se HSE SH Se oe OH Se OH Se Os OH es os BH Sse ee. 


DVD DVD DUPV PUL PUDVDVLV IUPUI SESSILIS 


BRK W 


IF RETURN STATUS NEQ SS$_RORMAL 


13 
O18 HSSepc}98E QUMG:3E  YMadt OLMeHrHBaysaOnT82 


> 544 1730 EN 

; rh \f 1 RETURN .RETURN_STATUS ; 

; «54 17 ‘ END; ! of INCR Loop 

; 548 1734 

; 549 1735 + 

3 0 17 § i Since we fell out of the loop above, all strings have been 
: 1 17 i successfully deallocated, so... 

3 2 ¢ 17 5 ie 

; 2 17 

; 554 1740 RETURN (SS$_NORMAL); 

4; 339 1741 END; ! end of LIBSSFREE1_DD6 


7E 50 7D 00000 LIBSSFREEN_DD6:: 
mova ‘RO, NUM_DESC 
7E D4 00003 CLRL COUNTER 
1F 10 00005 BSBBé2'$ 
50 04 AE 03 78 00007 1$: ASHL #3, COUNTER, RO 
50 0c AE CO 0000¢ ADDL2 DESC_P 6 
6E 70 7E 00010 MOVAG (ROY, DESCRIP 
50 6E DO 00013 MOVL SCRI 
FF69 30 00016 BSBW LIBSSFREE1_DD6 
51 50 D0 00019 MOVL RO, RETURN™STATUS 
01 51 D1 0001C CMPL §_RETURN_STATUS, #1 
05 13 OOO1F BEQL 
50 51 D0 90021 MOVL § RETURN_STATUS, RO 
09 11 00024 BRB 
DB 04 AE 08 AE F3 00026 2$: AOBLEQ NUM_DESC, COUNTER, 1$ 
50 01 D0 0002C MOVL 1, 7RO 
5E 10 CO 000¢F 3$: ADDL2 #16, SP 
05 00032 RSB 
3; Routine Size: 51 bytes, Routine Base: _LIBSCODE + 01F0O 


; 3% 1742 #1 


Sete Se Ge Ge Se Se Ge Se Se Ge Ge Se Ge Fe Be Se 


3 


D1 

IBSSCOPY 16-Sep-1984 01:14: AX-11 Bliss-32 v4.0-74 Page 18 1B! 
ett 1e-8ep-19 4 93:49:53 LIBRTL. RCILIBSCOPY .B3 31 ° (9) 1-6 
5 eB 176? ] GLOBAL ROUTINE LIBSSCOPY_DXDx ( ! Copy string by descriptor 
: 560 1745 1 SRC_DESC ' Source strin 
; 561 1766 1 DEST_DESC¢ ! Destination Sering 
3 ¢ 1747 «1 d= 
; 56 1748 1 
; 564 1749 1 S44 
3 68 \f 9 ] FUNCTIONAL DESCRIPTION: 
: 56 17 1! Copy any supported class string passed by descriptor to an 
3 re V7 § : } supported clase strine passed by deste leter. 4 : ' 
5 $ 1755 1 ! FORMAL PARAMETERS: 
; 571 17 § 1! 
3 256 17 1! SRC_DESC.rt.dx Address of source string descriptor. 
; 57 17 3 1! DEST_DESC.wt.dx Address of destination descriptor. 

: a 1723 : The class and dtype fields are not disturbed. 
3; Sf 1761 1 =! IMPLICIT INPUTS: 
s S77 1096 1! 
; 578 17635 1! NONE 
; 579 1764 1! 
; 580 1765 1 =! IMPLICIT OUTPUTS: 
; 581 1766 1! 
3 28¢ 1767 1! NONE 
; 3 1768 1! 
; 584 1769 1 ! COMPLETION CODES: 
3 385 1770 1! 
; 586 1771 1! SS$_NORMAL Success 
; 587 Ieee 1! 
; 588 1775 1! LIB$_STRTRU The source ptring was truncated to fit the 
; 4 ire ’ } fixed-length destination string. 
3 44 1e78 : LIBS_INSVIRMEM Not enough virtual memory available. 
3 298 1778 1! LIBS_INVSTRDES Invalid DSC$B_CLASS field contents or 
: 594 1779 1! If class = A or NCA, ARSIZE => 65K 
: 595 1780 1! 
3 1781 1 ! SIDE EFFECTS: 
3 rs 17a 1! 
; 598 1785 1! May allocate and deallocate virtual storage. 

; 599 1784 1! 
; 600 1785 1 !<- 
3 $0) 17 1 
3 § 17 BEGIN 

: 60 1788 RETURN LIBSSCOPY_DXDX6 (.SRC_DESC, .DEST_DESC) ; 

3 604 1789 ND; T end of LIBSSCOPY_DXDX 


007C 00000 -ENTRY LIBSSCOPY_DXDX, Save R2,R3,R4,R5,R6 : 1743 

50 06 AC 7D 4 MOVa SRC_DESC, RO ; 1788 
0000Vv 32 0 BSBW LIBSSCOPY_DXDx6 : 

4 000 RET ; 1789 


Be ne ee ee ee ee ee gered 


See A) 
Ei al 1ESeee198¢ (4:49:39 UMGH SLRS HB US0-28.. Page 3 


; Routine Size: 10 bytes, Routine Base: _LIBSCODE + 0223 


8 


; 605 1790 1 


LIBS_INSVIRMEM Not enough virtual memory available. 


LIBS_INVSTRDES Invalid DSCSB_CLASS field contents or 
If class = A or NCA, ARSIZE => 65K 


FFSES 
uno 0@n 


SIDE EFFECTS: 
May allocate and deallocate virtual storage. 


F 13 
IBSSCOPY 16*Sep-1984 01:14: AX-11 Bliss-32 V4.0-74 Pa 0 1B! 
ett 19-808- 1382 94:43:53 ATARTL $REML ToStOPy 45.1 9 46 t 1 
: 7 791 GLOBAL ROUTINE LIBSSCOPY_DXDX6 ( ' Copy string by descripts 
: é 196 ORC DESC - i Source string punt 
: 60 133 DEST_DESC i Destination string 
: 61 95 ) : STRING_JSB = 
3 ele 736 me 
3 61 79 
; 614 £38 
; ete £00 i C ted cl tri d by descript 
3 ! Opy any supported class string passe escriptor to an 
; ei? 803 supported class string passed by deste ipter. : , . 
; ei 08 i FORMAL PARAMETERS: 
: 621 508 i SRC_DESC.rt.dx Address of source string descriptor. 
3; 6 ¢ 506 ; DEST_DESC.wt.dx Address of destination string descriptor. 
: ? Z th The class and dtype fields are not disturbed. 
3 6 3 809 ; IMPLICIT INPUTS: 
: 637 i NONE 
; 628 ! 
3 o¢8 ' IMPLICIT OUTPUTS: 
; 650 ! 
: 631 ! NONE 
: O36 ! 
oe? : COMPLETION CODES: 
? 5 SS$_NORMAL Success 
63 i LIBS$_STRTRU The source string was truncated to fit the 
$3 fixed-length destination string. 
i 
] 
i 
i 
i 
' 


rs 


WPAN 
MEW O00 


BEGIN 


BOSS SSS a oben ~tenabasheee 
NOUS WN OO MEUIN 9 OONAUS UN “OO VOONAOUSWN—O 


MAP 
SRC_DESC : REF BLOCK C, BYTE), 
DEST_DESC : REF BLOCK C, BYTE); 


'¢ 
' Extract the length and address of ist byte of data from the source 
: descriptor. JSB to LIBSSCOPY_R_DX6 to do work. 


IF .SRC_DESC CDSC$B_CLASS] GTRU DSCSK_CLASS_D 
HEN ! Use generalizea extraction 


PETE TETETEILILILILIER IL ILIL IRIE eee eee ee ee 
ONOW 


ss 


SENS 


ee ee ec ee ce me ee ee De ee ee od ed od ed wd dd 


PPRIPOPIPOPOPOPOPOPONIPD) 9 8 2 8 0 0 0 
° 


'e¢ 
| FUNCTIONAL DESCRIPTION: 
BEGIN 

| 


i 


3; Routine Size: 


aye 


SESSEF 


o 


0 
671 
67 
67 
674 
675 
67 
67 


Ses So athe 


687 


COONAULS WTO 0O@ 


PPDAAAAVIUIVIIVT 


SREREAS 


NINA FAN ANNI 


— ~~ a — as as 2 4 2 a 


See 
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52 bytes, 


1871 


1 


13 
18-52 1984 01:14: AX-11 Bliss-32 V4.0-74 
12-88-1398 93:49:53 LIBRTL.SRCJLIBSCOPY.832;1 
LOCAL 
LENGTH : VECTOR (1, LONG) . ! Length of strin 
DATA_ADDR : VECTOR C1, LONG) , ! start of data address 
RETURN_STATUS ; 
RETURN_STATUS = LIBSANALYZE_SDESC_R2 ( .SRC pest : 
LENGTH (0) 
DATA_ADDR (03) ; 
IF NOT .RETURN_STATUS THEN RETURN (.RETURN_STATUS) ; 
RETURN (LIBSSCOPY_R_DX6 ( .LENGTH, .DATA_ADDR, .DEST_DESC)) ; 
END 
eccin ! can jsb with lenth and address directly 
RETURN (LIBSSCOPY_R_DX6 ( .SRC_DESC Habra typ: 
SRC-DESC CDSCS$A~POINTERS, 


-DEST_DESC ) ) 
END ; 


END; ! end of LIBSSCOPY_DXDX6 


ww 
Ww 
Sad 
oO 
~“ 


00000 LIBSSCOPY peeness 


D 
MO RO, R3 
02 03 Ad 91 00003 CMPB =: 3(SRC_DESC), #2 
1p 1B 00007 BLEQU 1$ 
50 53 D0 00009 MOVL  SRC_DESC, RO 
000000006 00 16 0000C JSB LIBSANALYZE_SDESC_R2 
56 51 o0 90012 MOVL RI, 
6s 32 DO 0001 MOVL R2.R 
13 50 €9 00018 BLBC RETURN STATUS, 3$ 
3¢ 54 DO 0001B MOVL  DEST_DESC, R2 
1 38 DO OOO1E MOVL  DATA“ADDR 
50 6 DO 00021 MOVL ENGTH, RO 
OA 11 00024 BRB 
52 4 dO 00026 1$: MOVL DEST_DESC, R2 
51 04 a3 0 00029 MOVL (SRC_DESC), RI 
50 ‘ 0 MOV2WL (SRC DESC), RO 
0000v 33: BSBW = LIBSSCOPY_R_DX6 
05 00033 3$: RSB 


Routine Base: _LIBSCODE + 022D 


Pete Ge Se Se Ge Se Se Se Ge Se Se Oe Se Se Se Be 


H 13 
bit Nal 1e-$ep-1986 12:59:63 EMfertu*seeSiiastory.00:1 
. : 


& 9 } a } GLOBAL ROUTINE LIBSSCOPY_R_DXx ( Copy string by reference 

: 691 1874 1 SRC_LEN ! Length of source 

2 ee ee | ResctotaSe'Sern 
3 ! n n strin 
694 ae ” ys aeriiigctns Hg 
2 ee eee 

3 637 0 ; FUNCTIONAL DESCRIPTION: 

: 699 1 1/ Copy any class string passed by reference to any supported 

: 790 } $ } class string passed by deste ipter. r Paes 

: 7 1885 1 | FORMAL PARAMETERS: 

; 7 1 Hy 1! 

; 704 1 : 1! SRC_LEN.rwu.r Address of Length of source 

3 0 1888 1! SRC_ADDR.rt.r Address of source 

3 re 1889 1! DEST_DESC.wt.dx Address of destination string descriptor. 

: ade 1930 : } The class and dtype fields are not disturbed. 
: 709 189¢ | i IMPLICIT INPUTS: 

: 710 1893 1! 

3; 711 1894 1! NONE 

3 at) 1895 1! 

; 671 1999 1 ! IMPLICIT OUTPUTS: 

3; 714 1897 1! 

3; 715 1898 1! NONE 

; 716 1899 1! 

3 ate 1300 ' } COMPLETION CODES: 

; 719 1908 1 SS$_NORMAL Success 

: 5 1904 1! LIBS_STRTRU The source ptcing was truncated to fit the 

: 728 1202 ' fixed-length destination string. 

; g ; 1907 : ; LIBS_INSVIRMEM Not enough virtual memory available. 

: 458 1909 1! LIBS_INVSTRDES Invalid DSCSB_CLASS field contents or 

3 eet 1319 : If class = A or NCA, ARSIZE => 65K 

; fi 1912 | i SIDE EFFECTS: 

: 731 1914 1 May allocate and deallocate virtual storage. 

; £ ¢ 1915 1! 

if Bie i 

; 735 1918 BEGIN 

: a 1919 RETURN LIBSSCOPY_R_DX6 (..SRC_LEN, »SRC_ADOR, -DEST_DESC) ; 

; 737 1920 END; { end of LIB$SCOPY_R_DXx 


007C 00000 -ENTRY LIBSSCOPY_R_DX, Save R2,R3,R4,R5,R6 
51 8 AC 7D 00009 MOVQ SRC_ADDR, RT 
50 4 BC dO 000 MOVL @SRT_LEN, RO 


taco 


; Routine Size: 14 bytes, 


; 738 


1921 1 


Routine Base: 


oN Be 80000 


-LIBSCODE + 0261 


1EBeoct9Rs 01:14:35 YARSTT BL ing-32 v4son742 Page 23 


BSBW Le IBSSCOPY_R_DX6 3 
RET 3; 1920 


13 
ad - 4 4 = - - 184 
et teal WeSeoctgbs 90:16:33 WMG SLANT HB Ys0-263 Paae 18} “0 


3 re 13 5 } GLOBAL ROUTINE LIBSSCOPY_R_DX6 ( ! Copy string by descriptor 
; 74 13 4 1 SRC_LEN ! Number of bytes in source 
> 74 1905 1 SRC-ADDR i Address of source data 

: 74h 1966 | DEST_pESC i Destination string 

; 745 19 1 

3; 74 19 1 ) : STRING_JSB = 

; 74 19 1 

; 748 19 1 !e4 

: 730 19 : ! FUNCTIONAL DESCRIPTION: 

; 1 1 . 3 Copy any class string passed by reference to any supported 
3 f § 13 : ! class string ,essed by deseriptor. . aaa 

; 7546 19 § 1 ! FORMAL PARAMETERS: 

; 755 19 1! 

; 2 $ 1938 1! SRC_LEN.rwu.v ! (in RO) Length of source 

; 7 1939 1! SRC_ADDR.rt.r ! Cin R1) pointer to source string 
; 758 1940 1! DEST_DESC.wt.dx ! Cin R2) pointer to destination 

; 759 1941 1! string descriptor 

; 760 13e6 1! 

: 761 1945 1 ! IMPLICIT INPUTS: 

: re 1944 1! 

: 76 1945 1! NONE 

> 764 1368 1! 

3; 765 1947 1 ! IMPLICIT OUTPUTS: 

3 768 1948 1! 

; 76 1949 1! NONE 

; 768 1950 1! 

; 769 1951 1 ! COMPLETION CODES: 

; 770 1336 1! 

s i 19553 1! SS$_NORMAL Success 

s 1954 1! 

i 1955 1! LIBS_STRTRU The source pectng was truncated to fit the 
3 ue 1326 ’ fixed-length destination string. 

3 oe 1938 ! : LIBS_INSVIRMEM Not enough virtual memory available. 

: 778 1960 1! LIBS_INVSTRDES Invalid DSC$B_CLASS field contents or 

3; 779 1961 1! If class = A or NCA, ARSIZE => 65K 
: 780 1906 1! 

; «781 1965 1 ! SIDE EFFECTS: 

3; 7 ¢ 1964 1! 

3 784 1302 ! May allocate and deallocate virtual storage. 

; 785 1969 1 

; ree 1968 BEGIN 

sr 44 

a 1970 LOCAL 

3 789 1971 RETURN_STATUS; 

; 790 1376 

; 791 197 MAP 

; ak 1974 DEST DESC : REF BLOCK C , BYTE] , ! destination descriptor 
; 79 1975 SRC_CEN : WORD UNSIGNED ; ! Length of input 

3; 796 1378 

3 «6795 197 


K 13 
bt Nal 1er$ep-198e 12:59:83 EMenteosneSciastosy.6s0;1 Paee $3 


~ 


'¢ 
' Select the class of descriptor. 


~~ 


—O0Oe 


: 1 

: 1 

. £ i } Return the status resulting from the copy operation. 

: 801 1 

3 § 13 ; RETURN_STATUS = SSS$_NORMAL ; ! Assume success 

; 80 19 RETURN”( CASE .DEST-DESCCDSCS$B_CLASS) 

; 804 1985 FROM BSCS$K_CLASS_2Z TO DSCSK_CLASS_SB OF 

; 805 19 SET 

g Hd 19 

; 80 19 $ '¢ 

3 19 ! fixed string descriptor (CLASS 2, _S, _SD, _SB) 

: 1 1 ReRRe RRA AARAAeeARERReReee eRe eee eeeeeeeese 

; 810 1991 ' 

> 811 1336 ! Use fixed Length semantics. Copy to destination with fill or 
: Si¢ 199 ! truncation. 

; #81 1994 be 

: aie 1995 CDOSCSK_CLASS_Z, 

; 815 1238 DSCSK_CLASS_S, 

; 816 199 DSCS$K_CLASS_SD 

; 817 1998 DSCSK~CLASS-SBd : 

; 818 1999 4 BEGIN 

; oi) one ? BUILTIN RO; ! Length of uncopied src from MOVCS 
; $54 OO 4 CHSCOPY (.SRC_LEN, .-"f ADDR, STRSK_FILL_CHAR, 
: 82¢ 003 4 -DEST_DESC EDs LENGTH) 

F 823 004 4 -DESTIDESC CDSC$A_rOINTERS); ! do copy 
3 B58 006 4 IF .RO EQLU O ! if no uncopied src 

; 826 007 4 

; 827 2008 4 SS$_NORMAL ! then success 
: 828 009 4 

; 829 010 4 LIB$_STRTRU ! else truncation 
; 830 011 ; END; 

3 631 012 


13 
bit Nal HESeoct9Es 9U:48:3} WMGLY OULEHC HBS NSAI ES8. Page af) 


RETURN_STATUS = LIBS_FATERRLIB ; 
' successful allocate 


H 1 '+ 
3 iz ! dynamic destination string 
8 5 1? tARAAAAAALAALALALALALL LAL 
; 7 ; ; Coscsk CLASS_D3 : 
; § P 19 4 IF SSTRSNEED_ALLOC (SRC LEN. 
: rei : (SSTR DYN_AL_LEN (DEST_DESC)) ) 
; tg L 8 ; ZIF ZBLISS (BLISS16) OR ZBLISS (BL1ISS36) ! if not VAX must not 
; U ZTHEN ! CHSMOVE with overlap 
$ 4 U 8 4 OR SSTRSOVERLAP (.SRC_ADDR SRC_LEN 
3 845 U g0¢5 3 -DEST_DESE CDSCSA_POINTER], .SRC_LEN) 
; “3 0 § 4 HEN 
; 848 028 BEGIN ! cannot directly fill dest 
; 849 029 LOCAL 
; 850 030 LOC_RET_STAT, ! status of calls to Allocate 
; 851 031 ! and Deallocate 
: 526 8 § TEMP_DESC : SSTRSDESCRIPTOR; ! create temp 
; B28 O32 2 LOC_RET_STAT = SSTRSALLOCATE (.SRC_LEN, TEMP_DESC); 
; $2? tH : oa ! alloc temp 
: Bee O38 5 i Allocate will only return STR$_NORMAL or 
; 858 038 5 ' STRS_INSVIRMEM, therefore if if wasn't success, 
; 859 039 5 ! don't continue copying 
BR RHE ; 
; 86¢ O4g 6 IF (.LOC_RET_STAT) 
; 86 spe 5 THEN 
3; 864 044 6 BEGIN ' successful allocate 
3; 865 045 6 CHSMOVE (.SRC_LEN 3 ADDR, ! co y to temp 
; 046 6 -TEMP_DESC COSCSA_POINTERJ); 
3 7 047 6 SSTRSEXCH_DESCS (TEMP_DESC, DEST DESO); 
3 048 6 ' switch temp 
3; 869 049 6 ! and dest 
; 870 050 6 LOC_RET_STAT = SSTRSDEALLOCATE (TEMP_DESC); 
; 871 051 6 ' return former 
: o76 O3¢ ° a ! string 
; $i 054 6 i $STRSDEALLOCATE returns either STR$_NORMAL 
3 at? B22 ? } or STRS_FATINTERR. 
: 3 $39 6 IF NOT .LOC_RET_STAT 
3 % 058 6 
3 7 328 6 
; 881 Be . ELSE 

: § 086 RETURN_STATUS = LIBS_INSVIRMEM ; 

3 94 END ! cannot directly fill dest 

: 885 065 4 ELSE 

; $9 BEGIN ' directly fill dest 

; 943 CHSMOVE (.SAC_LEN fae ADDR ‘write dest 

: 889 06 -DEST_DESC CDSCSA_POINTER]); 


DEST DESC CDSCSu_LENGTH] = 


Page 425 


N 13 


IBSSCOPY Sep-1 AX-11 Bliss-32 V4.0-74 Page 28 18% 
ett 12: -Sep- 0-1 3be 93: 3: i} YONSRTLe SREML 1BSCOPY 03951 . as -01 
5 97 6 1+ 
5 98 7 i Class A and NCA array descriptor 
3 4 RARER AAAAERAEREEREREEREEREEEE 
; 201 0 COSC$K_CLASS_A ! Class A Array descriptor 
: 90¢ 1 ; DSCSK-CLASS_NCAJ: i Class NCA array descriptor 
: oRe ' ‘ ? BUILTIN RO; ! Len of uncopied src from MOVCS 
: 906 085 4 IF .DEST DESC COSCSL_ARSIZE] GTR MAX_SIZE ! If ,3izermax 
; 907 086 : THEN LIBS_INVSTRDES ; en quit 
; 309 $8 4 CHSCOPY (. sre ten ~SRC_ADDR, STRSK_FILL_CHAR, 
> 910 089 4 DESC CDSTSL_ARSI 
: gt 990 4 DEST. “DESC COSCSA~ ~POINTERS) : ! do copy 
: 318 09 4 IF .RO EQLUO ! if no uncopied src 
; 915 2094 4 RETURN_STATUS = SS$_NORMAL ! then success 
; a 3947 ? RETURN_STATUS = LIBS_STRTRU ‘else truncation 
: 919 2098 3 END ; ! of Class A and NCA Array Descriptor 


14 | 
IBSSCOPY bese -1984 01:14: AX-11 Bliss-32 V4.0-74 Page 29 
ett 12-808-1 3b 93:49:53 LIBRTL SREILIBSCOPY 203951 . (16) 
: 38) 16h 5 | worvien werive teseriot 
: ' Varyin rin r r 
: 9 § 101 ! eek be Beton Bee te ae 
: 926 1 g ie 
; 925 1 
3 g § Ise i COSCSK CLASS_vS3: ! Varying string descriptor | 
: 958 106 § IF (.SRC_LEN LEQU .DEST_DESC CDSCSW_MAXSTRLEN) ) | 
: 929 107 4 THEN ! fits within MAXLEN, copy and update CURLEN 
; 9350 108 BEGIN 
; 931 109 CHSMOVE (.SRC_LEN at ADOR | 
; 93¢ 110 ,DEST DESC DSTSA POINTER] + 2); | 
: 9 111 (.DEST_ DESC COSCS$A_POINTERT)<0,16> = .SRC_LEN ; 
> 934 ie SS$_NORMAL ! Feturn success status 
: OR We 3 
: 339 115 4 ELSE ! Won't fit within MAXLEN. Only copy MAXLEN's 
; 938 116 4 ! worth of data and update CURLEN to MAXLEN 
; 939 117 4 
: 940 118 5 BEGIN 
> 941 119 5§ CHSMOVE (.DEST_DESC peereuSavere. tnd. -SRC_ADDR, 
; 94 $130 5 -DEST_DESC COSCSA_POINTER] + 2); 
: 94 2121 § (.DEST_DESC COSCS$A_POINTERJ)<0,16> = 
s 944 \$¢ 5 -DEST_DESC CDOSCSW_MAXSTRLEN] ; 
> 945 1 5 LIBS_STRTRU ! return truncation status 
; 946 124 5 END 
: 947 125 5 
; 948 2126 3 END ; ! of Varying string descriptor 
: 949 2127 
; 950 2128 
: 951 $i¢2 '¢ 
; 95 2130 ! Unsupported class descriptor 
: 95 2131 1 Ree eReRekeekeeeeeetkeeeneeee 
3 954 $136 ; !- 
3; «955 sis 
; 956 134 3 CINRANGE, OUTRANGE): ! Unsupported class of descriptor 
; 957 2135 3 LIBS_INVSTRDES ; 
: 958 2136 § TES); ! end of set on class code 
; 959 2137 
; 960 2138 1 END; ! end of LIBSSCOPY_R_DX6 
-EXTRN STRSS$MOVO_R1 
5E 1C C2 00000 LIBSSCOPY_R Dxé:: 
sOsC2 #28, SP : 1922 
04 AE 52 00 00003 MOVL Re. DEST_DESC F 
51 DD 00007 PUSHL R : 
04 AE 50 DO 00009 MOVL RO, SRC_LEN 3 
56 01 00 0000D MOVL #1, RETORN_STATUS : 1983 
7E 08 ac 03 ft Beis ADDL3 #3, DEST_DESC, -(SP) 3: 1984 
OF 3 F 0001 CASEB «a(SP)+, FO, wi ; 
8 20 004F 8 c § thy 1$ WORD $-1$,- 3 
on gaits atte : 
06 $690 6 0 5 1 2$-1$,- : 


2006 
2020 


iss-32 V4.0-74 


YBRTL SReaL Test OPy .033s1 


DESC, (SP) 
SRC_LEN, @SRC_ADDR, #32, @DEST_DESC, a(SP)+ 


INVSTRDES, R6 


seetee s sees 
Mss s 3 WR 2s 2 8 
TF DAABA— — AMAA AH 
terres 1 ieee @ 
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#4, DEST 
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56 000000006 


AE 
BE 


08 
04 


7E 
20 


oc «=#BE 


vgsacor 


Orr. 0O 


000000006 


0 
0 
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8F 
5 
5 
8F 
04 
8F 
5 
5 
5 
1 
04 
8F 


OOFO 
00FO 
OOFO 


5 
5 
51 08 A 
5 
000000F 0 


AE 


04 


52 


D 14 
IBSSCOPY 16-Sep-1984 01:14: AX=11 Bliss-32 V4.0-74 Page 31 
ett 1eageb~138e FSi 45:8s HANEY Sk isgr de vs .0-748 9° 18) 
06 1B 000CD BLEQU 16$ : 
52 08 F $6 CF MOVZWL aDEST_DESC, R2 : 
D BRB 1 : 
5 p0 05 16$: MOVL RO, STRING_BLOCK : 
§ FE A2 3C 000D MOVZWL -2(STRING BLOCK), R : 
52 04 AE 1 0 FD DC 17$:  CMPZV #0, #16, SRC_LEN, R : 
’ A O00E BGTRU 198 : 
0132 31 O00E4 18$: BRW 33$ : 
07 000000006 00 E8 000E7 19$:  BLBS  STRS$V_INIT. 208 + 2034 
000000006 90 90 FB OEE CALLS #0, STRSSINIT : 
000000006 8F DO OOOFS 208:  MOVL ##STRS_NORMAL, RETURN_STATUS ; 
OOFO BF 04 h 8 oF CPA RC_LEN, #246 : 
04 AE B5 00104 TSTW  SRC_LEN : 
4 12 00107 BNEQ 21$ : 
3 p4 00109 CLRL «TEMP : 
1 11 00108 BRB 25$ : 
51 04 AE 3¢ 010D 21$:  MOVZWL SRC_LEN, R1 : 
51 p 0111 DECL 1 : 
51 07 BA 00113 BICB2 «#7, R1 : 
54 0000000060041 9E 00116 MOVAB STR$$Q_SHORT_Q[R1], REMQUE_ADDR : 
53 00 Bs oF OIE 22$: REMOUE @0(REMOUE_ADBR), TEMP : 
52 01 v0 01 4 MOVL #1, ALLOC_DONE ; 
OD 11 00127 BRB : 
52 ee 00129 23$: CLRL ALLOC_DONE : 
7E 04 AE 3C 00128 MOVZWL SRC_LEN, -(SP) 3 
000000006 00 01 FB 0012F CALLS #1, ~STR$S$ALOC_SHORT : 
05 38 E8 00136 24$:  BLBS  ALLOC $ : 
2E 50 £9 00139 BLBC RETURN_STATUS, 28$ ; 
£0 11 901 C BRB ; 
29 9 E9 0013E 25$:  BLBC RETURN STATUS, 28% : 
1¢ AE 33 D0 90141 MOVL TEMP, TEMP_DESC+4 ; 
1¢ AE OOF 00147 26$: | PUSHAB TEMP_DESC+4 : 
10 AE 08 AE 3C OO14A MOVZWL SRC_CEN, 16(SP) : 
10 AE OF OO14F PUSHAB 16(SP) ; 
000000006 00 9 FB 01 : CALLS #2, LIBSGET_VM : 
09 E8 001 BLBS § RETURN STATOS, 278 ; 
50 000000006 af oO a165 MOVL #STRS_INSVIRMEM, RETURN_STATUS ; 
18 AE 06 AE 80 00165 278:  MOVW SRC_LEN, TEMP_DESC ; 
oc A 50 DO OO16A 28$:  MOVL RETORN STATUS; LOC_RET_STAT : 
0 0c ont a8 BLBS ¢_RET_STAT, 29$ + 2042 
1c «BE 00 BE 04 AE 28 00175 298 MOVC3 SRC_LEN, @SRC_ADDR, a@TEMP_DESC+4 : 2046 
10 AE 08 BE 80 0017C MOV @DEST DESC, SSTRSTEMP_DESC > 2047 
50 08 AE 4 C1 00181 ADDL3 #4, DEST_DESC, R ; 
14 AE 6 DO 001 MOVL (RO), SSTRSTEMP_DESC+4 : 
50 08 AE ci 18A ADDL3 #2, BEST DESC, R : 
1A AE : : 18F move. (RO), TEMP _DESC+ : 
50 08 AE § 01 : ADDL3 #3, DEST DESC, R : 
1B OA 60 90 0019; move (RO), TEMP_DESC : 
5 18 AE 9 19¢ MOVAB TEMP’DESC,"R ; 
51 3 DO 001A MOVL DEST™DESC. R ; 
000000006 00 16 001A4 JSB STRSSMOVG RI ; 
18 AE 10 AE BO OOTAA MOVW STRSTEMP-DESC, TEMP_DESC : 


14 
Llpsscory b-bep-1964 O114:25  yAR=I1 BLiag-32 y4.0-742 | 


aa 


1 OA 14 AE 00 OO1AF MOVL $STRSTEMP_DESC+4, TEMP_DESC+4 
2 000000006 8F D0 001B4 MOVL § #STRS_NORMAL, RETURN_STATUS 
C AE 00 00188 MOVL TEMP_DESC+4, R2 
%E 13 001BF BEQL 31$ 
OOFO BF 18 «AE 8 1c CMPW  TEMP_DESC, #240 
1A 1A 001C BGTRU 30$ 
51 3¢ p0 1€9 OVL 2, STRING BLOCK 
51 FE al ; 1c MOV ZUL : (STRING_BLOCK), ALLOC_LENGTH 
51 07 BA aig BICB2 #7, R1 
51 0000000060041 9€ 0010 OVAB STR$$Q_SHORT_QCR1], INSQUE_ADDR 
00 81 62 OF 9100 INSQUE (Re), 30( INSQUE_ADOR) 
C 161 RB 31 
“« a 3 O1E3 30$: | PUSHAB TEMP_DESC+4 
Oc AE 1€ AE 3C 00166 MOVZWL TEMP"DESC, 12(SP) 
OC AE OF OOTEB PUSHAB 12(SP) 
000000006 00 9 Fe OEE CALLS #2, LIBSFREE_V 
07 E8 OO1F LBS § RETURN STATUS, 31$ 
50 000000006 BF DO 001FB MOVL §§#STRS$_FATINTERR, RETURN_STATUS 
Oc AE 50 DO OO1FF 31$:  MOVL §RETURN_STATUS, LOC_RET_STAT 
78 Oc AE E8 00203 BLBS §_LOC_RET_STAT, 
56 000000006 ti 0 $8 of BOVE #LIBS_FATERRLIB, RETURN_STATUS 
56 000000006 8F D0 00 19 32$: MOVL #L 1BS_INSVIRMEM, RETURN_STATUS 
66 11 0021 BRB 39$ 
60 00 BE 04 AE 2800219 338:  MOVC3 SRC_LEN, @SRC_ADDR, (RO) 
08 BE 04 AE BO O021F MOV SRCULEN, aDEST_DESC 
59 11 00224 BRB 
50 08 AE OC C1 00226 34$:  ADDL3 #12, DEST_DESC, RO 
7E 08 AE 04 C1 00228 ADDL3 #4, DEST_BESC, -(SP) 
9E DD 00230 PUSHL a(SP)+ 
7E Oc AE 0¢ C1 00 32 ADDL3 #12, DEST_DESC, -(SP) 
9E 20 08 BE 0c AE 2c 00 3? MOVCS SRC.LEN, SSRC_ADDR, #32, a(SP)+, a(SP)+ 
50 D5 0023F TSTL RO 
35 if 00241 BNEQ 38% 
56 01 00 00243 MOVL #1, RETURN_STATUS 
1D 11 00246 BRB 36§ 
51 08 A 04 C1 00248 35$:  ADDL3 #4, DEST_DESC, R1 
5 61 9E 00240 MOVAB (R1), R 
08 BE 04 AE B1 00 30 CMPW sc _LEN, @DEST_DESC 
13 1A 00 BGTRU 37$ 
56 60 DO 00257 MOVL. (RO), R6 
02 Ab 00 BE 04 AE 28 0 A MOVC3 SRC_LEN, @SRC_ADDR, 2(R6) 
46 4 AE B 61 MOV! § SRCTLEN, (R6) 
56 01 DO 00265 368 MOVL #1, °R6 
15 11 00268 BRB 39§ 
56 60 00 6A 37$ MOVL. (RO), R6 
02 Ab 00 BE BE $0 MOVC3 a@DEST_DESC, @SRC_ADDR, 2(R6) 
ra E 8B 4 MOVW  a@DEST DESC, (R6) 
56 000000006 8F D 9 78 385: MOVL #LIBS"STRTRU, R 
50 6 D 7F 39$: MOVE RE RO 
5E 2 9 0 Be ADDL2 #30, SP 
5 00 RSB 


3; Routine Size: 646 bytes, Routine Base: _LIBSCODE + 026F 


vga IECREDISR SDSHS:3E UGA OUEST YMOO,1 | meas] HB 


Ve 
ot teal igcSeoctoge 4 3:53 EMentoseeSiiescory.033; 1 a ol 
308 $148 0 ELUDON 
PSECT SUMMARY 

Name Bytes Attributes 

-LIBSCODE 1269 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ere == Syabols ooocoo<o Pages Processing 

File Total Loaded Percent Mapped Time 

-$255$0UA28: CSYSLIBISTARLET.L32;1 9776 16 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:LIBSCOPY/OBJ=0BJ$:LIBSCOPY MSRC$:LIBSCOPY/UPDATE=(ENHS$:LIBSCOPY) 
ey 1269 Fes + 0 data bytes 


Elapsed Time: oF 1 
Lines/CPU Min: 8) $ 
Lexemes/CPU-Min: 3226 
Y Used: 205 pages 
Compilation Complete 


) 
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